home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Metal Briefcase 1.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\'Briefcase' Options"
  5. "NAME"="'Metal' Briefcase"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable 'Metal' Briefcase"
  8. "DESCRIPTION 1"="If you are tired of the boring brown My Briefcase function, why not spice it up with a snazzy metal icon instead?"
  9. "DESCRIPTION 2"="When you have made changes, refresh the icon cache so that you can enjoy your new aluminium briefcase."
  10. "DESCRIPTION 3"="Note: The metal briefcase icon only has one format: 32x32 pixels at 16 colors. The standard icon supports 16x16, 32x32 and 48x48 pixels at 16 and 256 colors."
  11. "COMMENT 1"="My Briefcase? More like Why Briefcase!"
  12. "VERSION"="2.22"
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "OSVERSION"="101010"
  16. "CONTACTURL"="http://www.xteq.com/"
  17.  
  18. BASE="HKEY_CLASSES_ROOT\CLSID\{85BBD920-42A0-1069-A2E4-08002B30309D}\DefaultIcon"
  19.  
  20. SUB Plugin_Initialize
  21.  W=GetWinSysDir
  22.  s=FileExists(w + "syncui.dll")
  23.  if s=false then
  24.   Call Disable
  25.   Call MsgError("X-Setup could not find the My Briefcase DLL in Windows System folder. This may be because you do not have My Briefcase installed, or you/a program has removed it.")
  26.  else
  27.   s=RegReadValue(BASE + "\@")
  28.   if IsEmpty(s)=true then
  29.    Call MsgError("X-Setup could not find My Briefcase in your computer's Registry. This may be because you do not have My Briefcase installed, or you/a program has removed it.")
  30.    Call Disable
  31.   else
  32.    if s=w + "syncui.dll,1" then
  33.     Call SetUIElement(1,true)
  34.    end if
  35.   end if
  36.  end if
  37. END SUB
  38.  
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  W=GetWinSysDir
  41.  t=GetUIElement(1)
  42.  if t=true then
  43.   u=RegReadValue(BASE + "\@")
  44.   Call RegWriteValue(BASE + "\Xteq Old Value",u,1)
  45.   Call RegWriteValue(BASE + "\@",W + "syncui.dll,1" ,1)
  46.  else
  47.   v=RegReadValue(BASE + "\Xteq Old Value")
  48.   if IsEmpty(v)=false then
  49.    Call RegWriteValue(BASE + "\@",v,1)
  50.    Call RegDeleteValue(BASE + "\Xteq Old Value")
  51.   else
  52.    Call MsgError("X-Setup was unable to restore the icon to its original state. This may be because the icon is already at its original state, or the backup of the original icon has been deleted.")
  53.   end if
  54.  end if
  55. END SUB
  56.  
  57. SUB Plugin_Terminate
  58. END SUB